<init>
subevent(mapinit,);
if(evf(*sw:pr_honpen)==1); fc(c3,apr,=,1); endif;


<out>
fade(out,(type=fade,color=000000,wait=16));
fc(*actor,ride,check,ship_mv);
#fcride(check,ship);
if(nowres); fc(*actor,move,26,5,center);
else; fc(*actor,move,27,4,center);
endif;
changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));

fcscroll(*actor);
scrbend(def,def,def,def);


<prs_test>
text(1,(w=40,h=8,bxmargin=16,cwait=4),u͏蕨̃eXgpɐ݂ĂꂾB܂ŃeXgp̏ꂾAU̖ɗ悤Ȃ̂A|ɂȂ悤Ȃ͖̂v);
fc(*target,mvpat,0,loop3,0);
#fc(*target,moveflag,|=,ah);


<scrfchtest>
scrbend(0,0,0,0);
text(1,(swait=32,lnmargin=16),ȕ蕨͏o͏o˂AȌ蕨͂ɏ^oRv);
return;

select2(reset,pos);
while;
select2(reset,list);
select2(+肪(id=0));
select2(+(id=1));
select2(+̐l(id=2));
select2(+XN[̒S𑊎(id=3));
select2(+XN[̒S(id=4));
select2(+XN[̒S̐l(id=5));
select2(+XN[(id=6));
select2(+ɂނ(id=7));
select2(+Eɂނ(id=8));
select2(+ۂނ(id=9));
select2(+_ł(id=10));
select2(+_Œ~(id=11));
select2(+߂);
select2(*(cid=));

if(evf(*selected)==0); fc(*target,walk,0,8,2,0,); return; fc(*target,walk,0,8,0,2,); return; fc(*target,walk,0,8,-2,0,); return; fc(*target,walk,0,8,0,-2,); return; next; endif;
if(evf(*selected)==1); fc(*actor,walk,0,8,2,0,); return; fc(*actor,walk,0,8,0,2,); return; fc(*actor,walk,0,8,-2,0,); return; fc(*actor,walk,0,8,0,-2,); return; next; endif;
if(evf(*selected)==2); fc(c2,walk,0,8,2,0,l); return; fc(c2,walk,0,8,0,2,u); return; fc(c2,walk,0,8,-2,0,r); return; fc(c2,walk,0,8,0,-2,d); return; next; endif;
if(evf(*selected)==3); fcscroll(*target); return; next; endif;
if(evf(*selected)==4); fcscroll(*actor); return; next; endif;
if(evf(*selected)==5); fcscroll(c2); return; next; endif;
if(evf(*selected)==6); fcscroll(*null); return; next; endif;
if(evf(*selected)==7); fc(*target,dir,=,~u); end; endif;
if(evf(*selected)==8); fc(*target,dir,=,~d); end; endif;
if(evf(*selected)==9); fc(*target,dir,=,~r); end; endif;
if(evf(*selected)==10); fc(*target,blink,16); end; endif;
if(evf(*selected)==11); fc(*target,blink,0); end; endif;

wend;

#fcscroll(*actor);
#scrbend(def,def,def,def);

#fc(move,,0,+0,+0,-3);
#return;

#text(1,(ym=c),ueXgpɖʂȂ̂XL邯ǋCɂȂłˁv);
#fc(walk,,0,4,2,0,1); return; fc(walk,,0,4,0,2,1); return; fc(walk,,0,4,-2,0,1); return; fc(walk,,0,4,0,-2,1); return; end;
#fc(walk,,0,-4,2,0,1); return; fc(walk,,0,-4,0,2,1); return; fc(walk,,0,-4,-2,0,1); return; fc(walk,,0,-4,0,-2,1); return; end;
#fc(walk,,0,8,-2,0,1); return; fc(walk,,0,8,0,-2,1); return; fc(walk,,0,8,2,0,1); return; fc(walk,,0,8,0,2,1); return; end;
#fc(walk,,0,8,-2,2,1); return; fc(walk,,0,8,-2,-2,1); return; fc(walk,,0,8,2,-2,1); return; fc(walk,,0,8,2,2,1); return; end;
#fc(pic,,=,person2);
#fc(mvpat,,loop1,0);
#fc(authit,,0);


<monomane>
text(1,(w=40,h=8,ym=c),um}l܂v);
select2(reset,all);
select2(+擪\{\}(id=0));
select2(+I\{\}(id=1));
select2(+%mem[*l]\{\}(id=2));
select2(+%mem[*l]\{\}(id=3));
select2(+擪\{펞\}(id=4));
select2(+I\{펞\}(id=5));
select2(+%mem[*l]\{펞\}(id=6));
select2(+%mem[*l]\{펞\}(id=7));
zukan(cond:,!=,0); if(nowres);
select2(+擪\{퓬s\\}(id=8));
select2(+I\{퓬s\\}(id=9));
select2(+%mem[*l]\{퓬s\\}(id=10));
select2(+%mem[*l]\{퓬s\\}(id=11));
endif;
zukan(cond:n,!=,0); if(nowres);
select2(+擪\{ڒn\}(id=12));
select2(+I\{ڒn\}(id=13));
select2(+%mem[*l]\{ڒn\}(id=14));
select2(+%mem[*l]\{ڒn\}(id=15));
select2(+擪\{ڒnE\}(id=16));
select2(+I\{ڒnE\}(id=17));
select2(+%mem[*l]\{ڒnE\}(id=18));
select2(+%mem[*l]\{ڒnE\}(id=19));
endif;
zukan(enemy:valanorpa,==,1);	if(nowres); select2(+%fcp[*valanorpa](id=20)); endif;
zukan(enemy:mutou,==,1);	if(nowres); select2(+%fcp[*mutou](id=21)); endif;
zukan(enemy:grpeng,==,1); 	if(nowres); select2(+%fcp[*grpeng](id=22)); endif;
zukan(enemy:senksha,==,1);	if(nowres); select2(+%fcp[*senksha](id=23)); endif;
zukan(enemy:coral,==,1); 	if(nowres); select2(+%fcp[*coral](id=24)); endif;
zukan(enemy:ikenaitsuki,==,1);	if(nowres); select2(+%fcp[*ikenaitsuki](id=25)); endif;
zukan(enemy:yj-a4,==,1); 	if(nowres); select2(+%fcp[*yj-a4](id=26)); endif;
select2(+߂(id=30));
select2(+Zbg(id=31));
select2(+߂);
select2(*N%ct1}l%cd]H(x=64,y=32,cid=,bxmargin=4,lnmargin=8));

#select2(*`摜ύXeXg`);
#if(evf(*selected)==0); fc(*target,pic,=,+head); end; endif;
#if(evf(*selected)==1); memslcbox(party,,,,2); if(nowres); fc(*target,pic,=,+select); endif; end; endif;
#if(evf(*selected)==2); fc(*target,pic,=,*l); end; endif;
#if(evf(*selected)==3); fc(*target,pic,=,*l); end; endif;
if(evf(*selected)==0); fc(*target,picset,fch,org:nrm,=,*headmem:all:*cd); end; endif;
if(evf(*selected)==1); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:*cd); endif; end; endif;
if(evf(*selected)==2); fc(*target,picset,fch,org:nrm,=,*mem:l:all:*cd); end; endif;
if(evf(*selected)==3); fc(*target,picset,fch,org:nrm,=,*mem:l:all:*cd); end; endif;
if(evf(*selected)==4); fc(*target,picset,fch,org:nrm,=,*headmem:all:nrm); end; endif;
if(evf(*selected)==5); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:nrm); endif; end; endif;
if(evf(*selected)==6); fc(*target,picset,fch,org:nrm,=,*mem:l:all:nrm); end; endif;
if(evf(*selected)==7); fc(*target,picset,fch,org:nrm,=,*mem:l:all:nrm); end; endif;
if(evf(*selected)==8); fc(*target,picset,fch,org:nrm,=,*headmem:all:snf); end; endif;
if(evf(*selected)==9); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:snf); endif; end; endif;
if(evf(*selected)==10); fc(*target,picset,fch,org:nrm,=,*mem:l:all:snf); end; endif;
if(evf(*selected)==11); fc(*target,picset,fch,org:nrm,=,*mem:l:all:snf); end; endif;
if(evf(*selected)==12); fc(*target,picset,fch,org:nrm,=,*headmem:all:ert); end; endif;
if(evf(*selected)==13); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:ert); endif; end; endif;
if(evf(*selected)==14); fc(*target,picset,fch,org:nrm,=,*mem:l:all:ert); end; endif;
if(evf(*selected)==15); fc(*target,picset,fch,org:nrm,=,*mem:l:all:ert); end; endif;
if(evf(*selected)==16); fc(*target,picset,fch,org:nrm,=,*headmem:all:ert:alt); end; endif;
if(evf(*selected)==17); memslcbox(party,,,,2); if(nowres); fc(*target,picset,fch,org:nrm,=,*slcmem:all:ert:alt); endif; end; endif;
if(evf(*selected)==18); fc(*target,picset,fch,org:nrm,=,*mem:l:all:ert:alt); end; endif;
if(evf(*selected)==19); fc(*target,picset,fch,org:nrm,=,*mem:l:all:ert:alt); end; endif;
if(evf(*selected)==20); fc(*target,picset,fch,org:nrm,=,valanorpa); end; endif;
if(evf(*selected)==21); fc(*target,picset,fch,org:nrm,=,mutou); end; endif;
if(evf(*selected)==22); fc(*target,picset,fch,org:nrm,=,grpeng); end; endif;
if(evf(*selected)==23); fc(*target,picset,fch,org:nrm,=,senksha); end; endif;
if(evf(*selected)==24); fc(*target,picset,fch,org:nrm,=,coral); end; endif;
if(evf(*selected)==25); fc(*target,picset,fch,org:nrm,=,ikenaitsuki); end; endif;
if(evf(*selected)==26); fc(*target,picset,fch,org:nrm,=,yj-a4); end; endif;
if(evf(*selected)==30); fc(*target,picset,fch,org:nrm,=,*reset); end; endif;
if(evf(*selected)==31); fc(*target,reset); fc(c2,reset); end; endif;


<tests1>
select2(reset,pos);
while;
select2(reset,list);
select2(+^C}[eXg(id=1));
select2(+ACeeXg(id=2));
#select2(+EfeXg(id=3));
select2(+o[IeXg(id=4));
#select2(+ʐUeXg(id=5));
select2(+XN[̒o(id=6));
select2(+}bvtOmF(id=7));
evflag(instant1,=,evf(*inmap:dgtype)); select2(+_WptOF%ev[*instant1](id=8));
select2(+̓D(id=10));
#select2(+\ogtB[h(id=12));
#select2(+jCxg̃eXgnm^nee(id=13));
select2(+seXg(id=14));
select2(+lQƃeXg(id=15));
select2(+eLXgϊeXg(id=16));
#select2(+s퓬(id=17));
select2(+tOZbgeXg(id=18));
select2(+J[\Et[eXg(id=19));
#select2(+vZeXg(id=19));
#select2(+);
select2(*(cid=));

#if(evf(*selected)==0); subevent(@checkpcd,); next; endif;
if(evf(*selected)==1); subevent(@timertest,); next; endif;
if(evf(*selected)==2); subevent(@itemtest,); next; endif;
#if(evf(*selected)==3); subevent(@soubitest,); next; endif;
if(evf(*selected)==4); subevent(@selecmemtest,); next; endif;
#if(evf(*selected)==5); subevent(@shaketest,); next; endif;
if(evf(*selected)==6); subevent(@scrbendtest,); next; endif;
if(evf(*selected)==7); text(1,,}bvVXetOF%evm[*system1]\n}bvt[tOPF%evm[*tes1]\n}bvt[tOQF%evm[*tes2]\nO[oVXetOF%ev[*system1]); evflag(*inmap:tes1,=,16); next; endif;
# evflagsw(mftest,^=);
if(evf(*selected)==8); evflag(*inmap:dgtype,+=,1); evflag(*inmap:dgtype,%=,4); subevent(kigae,); next; endif;
if(evf(*selected)==10); subevent(@setmdtest,); next; endif;
#if(evf(*selected)==12); subevent(@btfields,); next; endif;
#if(evf(*selected)==13); evflagsw(banzai,^=); evflagsw(banzai,==,1); if(nowres); text(1,,̓G|ۂɁuip[Rc΁vƏo悤ɂȂB); else; text(1,,uip[Rc΁vꂽB); endif; next; endif;
if(evf(*selected)==14); subevent(@kaigyou,); next; endif;
if(evf(*selected)==15); subevent(@srcvaltest,); next; endif;
if(evf(*selected)==16); subevent(@converttest,); next; endif;
#if(evf(*selected)==17); fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=iv,back=testmap1,stm=0,btm=ns)); fcwait(*actor); next; endif;
#if(evf(*selected)==18); subevent(@evcombitest,); next; endif;
#if(evf(*selected)==19); subevent(@equationtest,); next; endif;
if(evf(*selected)==19); subevent(@frametest,); next; endif;

wend;


<frametest>
text(1,(frame=hashigo,cursor=mutou,boxcol=(back1l,ff80ff,ffff00,00ff80,00ffff,ff8000,000000,128,0)),eXg);
select2(+IP(id=1));
select2(+IQ(id=2));
select2(*eXg(cid=,frame=rainbow,cursor=arrow1,boxcol=(back2,808000,000080,008080,00ffff,ff8000,ffffff,128,0)));


<kaigyou>
text(2,,\r%%);
text(2,,%%%%\r\r%%%jbt[*]%jbt[*].nmic%ene[*nabirt].ic%ene[*nabirt].nmic%ene[*nabirt].sn[*subname]%eng[*iviogQ]);
text(2,,\r);
text(2,,\r%%%%);
text(2,,\r\r);
text(2,,\r\r\r);
text(2,,\r);
text(2,,\r\r);
text(2,,\n);
text(2,,\n\n);
text(2,,\n);
text(2,,\n);
text(2,,\n\n);
text(2,,\n\n\n\n\n);
text(2,,\n\n\n\n\n\n);
text(2,,\n\n\n\n\n\n\n\n\n\n\n);
text(2,,\n\n\n\n\n\n\n\n\n\n\n\n);
text(2,,\n\n\n\n\n\n\n\n\n\n\n\n\n);
text(1,,\n);
text(1,,\n\n);
text(1,,\n\n\n\n\n);
text(1,,\n\n\n\n\n\n);
text(1,,\n\r);
text(1,,\r\n);
text(1,,\r\n);
text(1,,\n\r);
text(1,,\r\n);
text(1,,\n\r);
text(1,,\r\n\r);
text(1,,\r\n\r\n\n\r);
text(1,,);
text(1,,);
text(1,,);
text(1,,\r);
text(1,,\r);
text(1,,\r);
text(2,,);
text(2,,);
text(2,,);
text(2,,\r);
text(2,,\r);
text(2,,\r);


<srcvaltest>
evtext(subtx1,=,*);
evflag(*64:nowval,=,party(,gold));
evtext(subtx1,*=,*F%evh[*nowval]);
evflag(*64:nowval,=,party(,ini:gold));
evtext(subtx1,*=,*F%evh[*nowval]);
evflag(nowval,=,party(,count));
evtext(subtx1,*=,*o[F%ev[*nowval]);
evflag(nowval,=,party(,ini:count));
evtext(subtx1,*=,*o[F%ev[*nowval]);
evflag(nowval,=,party(,mxcount));
evtext(subtx1,*=,*o[eʁF%ev[*nowval]);
evflag(nowval,=,party(,ini:mxcount));
evtext(subtx1,*=,*o[eʁF%ev[*nowval]);
evflag(nowval,=,enedf(nabirt));
evtext(subtx1,*=,*io[gjF%ev[*nowval]);
evflag(*64:nowval,=,mem(head,exp));
evtext(subtx1,*=,*퓬o[̌olF%evh[*nowval]);

evflag(nowval,=,party(,count)+enedf(nabirt));
evtext(subtx1,*=,*o[+io[gjF%ev[*nowval]);
evflag(nowval,=,(party(,count)+enedf(nabirt))/5);
evtext(subtx1,*=,*io[+io[gjj/5F%ev[*nowval]);
evflag(nowval,=,party(,count)/(enedf(nabirt)+1));
evtext(subtx1,*=,*o[/iio[gj+1jF%ev[*nowval]);
evflag(nowval,=,party(,count)+3+enedf(nabirt));
evtext(subtx1,*=,*o[+3+io[gjF%ev[*nowval]);
evflag(nowval,=,party(,count)-3+enedf(nabirt));
evtext(subtx1,*=,*o[-3+io[gjF%ev[*nowval]);
evflag(nowval,=,party(,count)+3-enedf(nabirt));
evtext(subtx1,*=,*o[+3-io[gjF%ev[*nowval]);
evflag(nowval,=,party(,count)-enedf(nabirt));
evtext(subtx1,*=,*o[-io[gjF%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt));
evtext(subtx1,*=,*o[*io[gjF%ev[*nowval]);
evflag(nowval,=,-party(,count));
evtext(subtx1,*=,*-o[F%ev[*nowval]);
evflag(nowval,=,max(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*maxio[Cio[gjjF%ev[*nowval]);
evflag(nowval,=,min(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*minio[Cio[gjjF%ev[*nowval]);
evflag(nowval,=,pow(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*powio[Cio[gjjF%ev[*nowval]);
evflag(nowval,=,rand(party(,count),enedf(nabirt)));
evtext(subtx1,*=,*randio[Cio[gjjF%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt)+5*3);
evtext(subtx1,*=,*o[*io[gj+5*3F%ev[*nowval]);
evflag(nowval,=,party(,count)*enedf(nabirt)-5*3);
evtext(subtx1,*=,*o[*io[gj-5*3F%ev[*nowval]);
evflag(nowval,=,!enedf(nabirt));
evtext(subtx1,*=,*!io[gjF%ev[*nowval]);
evflag(nowval,=,!(enedf(nabirt)-1));
evtext(subtx1,*=,*!iio[gj-1jF%ev[*nowval]);
evflag(nowval,=,!enedf(nabirt)*5+5);
evtext(subtx1,*=,*!io[gj*5+5F%ev[*nowval]);
evflag(nowval,=,!(enedf(nabirt)*5)+5);
evtext(subtx1,*=,*!iio[gj*5j+5F%ev[*nowval]);
evflag(nowval,=,5+!enedf(nabirt)*5);
evtext(subtx1,*=,*5+!io[gj*5F%ev[*nowval]);
evflag(nowval,=,5--enedf(nabirt)*5);
evtext(subtx1,*=,*5--io[gj*5F%ev[*nowval]);
evflag(nowval,=,-5+-enedf(nabirt)*5);
evtext(subtx1,*=,*-5+-io[gj*5F%ev[*nowval]);
evflag(nowval,=,-5-enedf(nabirt)*5);
evtext(subtx1,*=,*-5-io[gj*5F%ev[*nowval]);
#evflag(nowval,=,rand(5,5));
#evtext(subtx1,*=,*randi5C5jF%ev[*nowval]);
#text(2,h=-1,%str[*subtx1]);
text(2,h=12,%str[*subtx1]);


<converttest>
text(2,,F%pty[e].gd\nF%pty[e].gd.w\nio[gjF%ene[*nabirt].df\nio[gjF%ene[*nabirt].df.w\np[eBF%pty[e].nmri\np[eBoro[F%pty[e].ormem.nmri\nsound:attack1:%sound[*attack1].nmic\nmusic:battle:%music[*battle].nmic);


<checkpcd>
select2(reset,all);
select2(+Ԃ̏ԊmF(id=0));
select2(+摜̊mF(id=1));
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂiSj(id=10)); else; select2(+HHH(en=0)); endif;
zukan(cond:\,==,1);   if(nowres); select2(+%cond[*\]ԂɂȂiSj(id=11)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂiSj(id=12)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂiSj(id=13)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂiSj(id=14)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂiSj(id=15)); else; select2(+HHH(en=0)); endif;
zukan(cond:k,==,1);   if(nowres); select2(+%cond[*k]ԂɂȂiSj(id=16)); else; select2(+HHH(en=0)); endif;
zukan(cond:n,==,1); if(nowres); select2(+%cond[*n]ԂɂȂiSj(id=17)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂi擪j(id=18)); else; select2(+HHH(en=0)); endif;
zukan(cond:,==,1);   if(nowres); select2(+%cond[*]ԂɂȂi擪j(id=19)); else; select2(+HHH(en=0)); endif;
#else; select2(+HHH(en=0)); 
select2(+񕜂(id=30));
#select2(+);
while;
#select2(*(cid=));
select2(*`Ԃ̏ԃeXg`(cid=));

if(evf(*selected)==0); subevent(@checkpcdmain,); next; endif;
if(evf(*selected)==1); subevent(@checkface,); next; endif;
if(evf(*selected)==10); formem(party); member(select,pcond,cond,,+=,); nextmem(); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==11); formem(party); member(select,pcond,cond,,+=,\); nextmem(); text(1,,%cond[*\].nmicԂɂȂI); next; endif;
if(evf(*selected)==12); formem(party); member(select,pcond,cond,,+=,); nextmem(); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==13); formem(party); member(select,pcond,cond,,+=,); nextmem(); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==14); formem(party); member(select,pcond,cond,,+=,); nextmem(); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==15); formem(party); member(select,pcond,cond,,+=,); nextmem(); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==16); formem(party); member(select,pcond,cond,,+=,k); nextmem(); text(1,,%cond[*k].nmicԂɂȂI); next; endif;
if(evf(*selected)==17); formem(party); member(select,pcond,cond,,+=,n); nextmem(); text(1,,%cond[*n].nmicԂɂȂI); next; endif;
if(evf(*selected)==18); member(head,pcond,cond,,+=,); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==19); member(head,pcond,cond,,+=,); text(1,,%cond[*].nmicԂɂȂI); next; endif;
if(evf(*selected)==30); subevent(recover,); fcwait(*actor); next; endif;

wend;


<checkpcdmain>
while;
memslcbox(party,`Ԃ̏ԊmF`,,,2); if(nowres);
#mem(forp);
#evtext(subtx1,=,*%mem[s].sn[*subname]w%mem[s].nmicx\n%mem[s].com\r);
evtext(subtx1,=,*%mem[s].sn[*subname]w%mem[s].nmicx);
member(select,level,>=,20); if(nowres); evtext(subtx1,*=,*xQOȏ); else; evtext(subtx1,*=,*xQO); endif;
member(select,exp,>=,20000); if(nowres); evtext(subtx1,*=,*olQȏ); else; evtext(subtx1,*=,*olQ); endif;
member(select,pcond, vp,>=,500); if(nowres); evtext(subtx1,*=,*uo500%c088ȏ%cd); else; evtext(subtx1,*=,*uo500%c800%cd); endif;
member(select,pcond, ep,<,10); if(nowres); evtext(subtx1,*=,*do10%c800%cd); else; evtext(subtx1,*=,*do10%c088ȏ%cd); endif;
member(select,pcond, cond,,==,0); if(nowres); evtext(subtx1,*=,*ғłɂ%c088NĂȂ%cd); else; evtext(subtx1,*=,*ғł%c800NĂ%cd); endif;
member(select,pcond, cond,,!=,0); if(nowres); evtext(subtx1,*=,*Ì%c800Ă%cd); else; evtext(subtx1,*=,*Ì%c088ĂȂ%cd); endif;
evtext(subtx1,*=,*~nԂ); member(select,cdtp2,&,mah); if(nowres); evtext(subtx1,+=,*%c800ȂĂ%cd); else; evtext(subtx1,+=,*%c088ȂĂȂ%cd); endif;
evtext(subtx1,*=,*s\Ԃ); member(select,rannrate,>=,0); if(nowres); evtext(subtx1,+=,*%c800ȂĂ%cd); else; evtext(subtx1,+=,*%c088ȂĂȂ%cd); endif;
member(select,rannrate,>=,300); if(nowres); evtext(subtx1,*=,*UF); member(select,rannrate,>=,600); if(nowres); evtext(subtx1,+=,*100%); else; evtext(subtx1,+=,*50%ȏ); endif; endif;
member(select,cutcond,,all,==,inf); if(nowres); evtext(subtx1,*=,*ÌŏԂɊSϐ); endif;
member(select,cutelem,,all,==,inf); if(nowres); evtext(subtx1,*=,*ΑɊSϐ); endif;
member(select,ampelem,X,all,>,0); if(nowres); evtext(subtx1,*=,*XL); endif;
member(select,autcond,all,&,JE^[); if(nowres); evtext(subtx1,*=,*ԂɃJE^[L); endif;
evtext(subtx1,*=,*OF%mem[s]\nACRF%mem[s].ic\nACR{OF%mem[s].nmic\nRgF%mem[s].com);
member(select,picset,fch,org:*cd,==,valanorpa); if(nowres); evtext(subtx1,*=,*om[p펞̉摜ɂȂĂ); endif;
member(select,picset,fch,org:*cd,==,vala-snf); if(nowres); evtext(subtx1,*=,*om[p퓬s\̉摜ɂȂĂ); endif;
text(1,face=+select,%str[*subtx1]);

#member(select,level,>=,20); if(nowres); text(1,face=+select,%mem[s]uxQOȏv); else; text(1,face=+select,%mem[s]uxQOv); endif;
#member(select,exp,>=,20000); if(nowres); text(1,face=+select,%mem[s]uolQȏv); else; text(1,face=+select,%mem[s]uolQv); endif;
#member(exp,<=,20000); if(nowres); text(1,face=+select,%mem[s]uolQȉv); else; text(1,face=+select,%mem[s]uolQv); endif;
#member(select,pcond, vp,>=,500); if(nowres); text(1,face=+select,%mem[s]uuo500%c088ȏ%cdv); else; text(1,face=+select,%mem[s]uuo500%c800%cdv); endif;
#member(select,pcond, ep,<,10); if(nowres); text(1,face=+select,%mem[s]udo10%c800%cdv); else; text(1,face=+select,%mem[s]udo10%c088ȏ%cdv); endif;
#member(select,pcond, cond,,==,0); if(nowres); text(1,face=+select,%mem[s]uғłɂ%c088NĂȂ%cdv); else; text(1,face=+select,%mem[s]uғł%c800NĂ%cdv); endif;
#member(select,pcond, cond,,!=,0); if(nowres); text(1,face=+select,%mem[s]uÌ%c800Ă%cdv); else; text(1,face=+select,%mem[s]uÌ%c088ĂȂ%cdv); endif;
#pcond(mem, vp,=,1234);
#nextmem();
next;
endif;
wend;


<checkface>
while;
memslcbox(party,`摜̊mF`,,,2); if(nowres);
text(1,face=+select,݂̏);
text(1,face=+select:nrm,펞);
zukan(cond:,!=,0); if(nowres); text(1,face=+select:snf,퓬s\); endif;
zukan(cond:,!=,0); if(nowres); text(1,face=+select:kch,Ì); endif;
member(select,picset,face,org:sri,!=,*none); if(nowres); text(1,face=+select:sri,^); endif;
member(select,picset,face,org:sml,!=,*none); if(nowres); text(1,face=+select:sml,Ί); endif;
#zukan(face:yj-a4-crm,!=,0);
member(select,picset,face,org:crm3,inzuk); and; member(select,picset,face,org:crm3,!=,*none); if(nowres); text(1,face=+select:crm3,); text(1,(face=+select:crm3,face_cans=5),iᑬj); text(1,(face=+select:crm3,face_cans=13),ij); endif;
#zukan(face:yj-a4-dmg,!=,0);
member(select,picset,face,org:dmg,inzuk); and; member(select,picset,face,org:dmg,!=,*none); if(nowres); text(1,face=+select:dmg,sk); endif;
next;
endif;
wend;


<itemtest>
select2(reset,pos);
while;
select2(reset,list);
select2(+%it[*gp҃eX^[](id=0));
select2(+%it[*gp҃eX^[](id=1));
select2(+%it[*as]%it[*gp҃eX^[]ɕϊ~10(id=2,com=݁@%it[*gp҃eX^[]F%it[*gp҃eX^[].hv@%it[*as]F%it[*as].hv));
select2(+ACeIeXg(id=7));
select2(+VFi܂(id=8));
select2(+VFsݎ҂̑i܂(id=9));
select2(+ACemF(id=10));
select2(+fobOpACe(id=18));
#select2(+);
select2(*`ACeeXg`(cid=));

if(evf(*selected)==0); item(get:bank,gp҃eX^[,1000); if(nowres); text(1,,w%it[*gp҃eX^[].nmicx1000肵I\nԂꂽ͋ɂɗaꂽI); else; text(1,,w%it[*gp҃eX^[].nmicx͂tI);endif; next; endif;
if(evf(*selected)==1); item(lost:bank,gp҃eX^[,1000); if(nowres); text(1,,w%it[*gp҃eX^[].nmicxɓƕ1000B); else; text(1,,w%it[*gp҃eX^[].nmicx͂ĂȂB);endif; next; endif;
if(evf(*selected)==2); item(change,as,gp҃eX^[,10); if(nowres); text(1,,w%it[*as].nmicxw%it[*gp҃eX^[].nmicxɂȂB\n݁@%it[*gp҃eX^[]F%it[*gp҃eX^[].hv@%it[*as]F%it[*as].hv); else; text(1,,w%it[*as].nmicxAw%it[*gp҃eX^[].nmicxȏ㎝ĂȂ悤B);endif; next; endif;
if(evf(*selected)==7); item(slc); if(nowres); if(evf(*selected)==id(item:chyaku)); text(0,%it[*chyaku]I); else; text(0,%it[*chyaku]ȊOI); endif; else; text(0,IȂ); endif; next; endif;
if(evf(*selected)==8); item(slc2); if(nowres); if(evf(*selected)==id(item:)); text(0,%it[*]I); else; text(0,%it[*]ȊOI); endif; else; text(0,IȂ); endif; next; endif;
if(evf(*selected)==9); item(slc3); if(nowres); if(evf(*selected)==id(item:)); text(0,%it[*]I); else; text(0,%it[*]ȊOI); endif; else; text(0,IȂ); endif; next; endif;
if(evf(*selected)==10);
evtext(subtx1,=,*);
item(check,gp҃eX^[,1); if(nowres); evtext(subtx1,*=,*%it[*gp҃eX^[]iij̒ɂ); else; evtext(subtx1,*=,*%it[*gp҃eX^[]͏iij̒ɂ͖); endif;
item(check:eq,gp҃eX^[,1); if(nowres); evtext(subtx1,*=,*%it[*gp҃eX^[]i{o[i̒ɂ); else; evtext(subtx1,*=,*%it[*gp҃eX^[]͏i{o[i̒ɂ͖); endif;
item(check:aleq,gp҃eX^[,1); if(nowres); evtext(subtx1,*=,*%it[*gp҃eX^[]i{So[i̒ɂ); else; evtext(subtx1,*=,*%it[*gp҃eX^[]͏i{So[i̒ɂ͖); endif;
item(check:bank,gp҃eX^[,1); if(nowres); evtext(subtx1,*=,*%it[*gp҃eX^[]i{ɂ̒ɂ); else; evtext(subtx1,*=,*%it[*gp҃eX^[]͏i{ɂ̒ɂ͖); endif;
item(check:alpt,gp҃eX^[,1); if(nowres); evtext(subtx1,*=,*%it[*gp҃eX^[]i{i̒ɂ); else; evtext(subtx1,*=,*%it[*gp҃eX^[]͏i{i̒ɂ͖); endif;
text(1,,%str[*subtx1]); next; endif;
if(evf(*selected)==18); buy(shop_db,); next; endif;
wend;


#EfeXg
<soubitest>
select2(reset,all);
select2(+Oi擪FSāj(id=0));
select2(+Oi擪F%eqt[*eq2]j(id=1));
select2(+OiSj(id=2));
select2(+mFi擪j(id=3));
select2(+mFi擪F%eqt[*eq2]j(id=4));
select2(+mFiNj(id=5));
select2(+mFiSj(id=6));
select2(+%eqt[*eq1]̕ύX̕si擪j(id=11));
select2(+%eqt[*eq1]̗L̖i擪j(id=12));
select2(+%eqt[*eq1]̋󗓉̕si擪j(id=13));
select2(+%jbt[*i]̕ύX̕si擪j(id=14));
select2(+%jbt[*i]̋󗓉̕si擪j(id=15));
select2(+fύXʂJi擪j(id=16));
select2(+w%eqt[*eq2]xύXʂJ(id=17));
select2(+](id=18));
select2(+ZIeXg(id=19));
select2(+mF(id=20));
select2(+mF(id=21));
select2(+Ȃ);
#select2(/);
select2(*`EfeXg`(x=32,y=64,cid=));

if(evf(*selected)==0); member(head,equip,*all,release,*some); goto(10); endif;
if(evf(*selected)==1); member(head,equip,eq2,release,*some); goto(10); endif;
if(evf(*selected)==2); formem(party); member(select,equip,*all,release,*some); nextmem(); goto(10); endif;
if(evf(*selected)==3); member(head,equip,*each,==,); if(nowres); text(1,face=+head,%mem[h]u𑕔Ăv); else; text(1,face=+head,%mem[h]u𑕔ĂȂv); endif; end; endif;
if(evf(*selected)==4); member(head,equip,eq2,==,); if(nowres); text(1,face=+head,%mem[h]u%eqt[*eq2]ɔ𑕔Ăv); else; text(1,face=+head,%mem[h]u%eqt[*eq2]ɔ𑕔ĂȂv); endif; end; endif;
if(evf(*selected)==5); formem(party); member(select,equip,*each,==,); nextmem(exis); if(nowres); text(1,face=+select,%mem[s]u𑕔Ăv); else; text(0,N𑕔ĂȂ); endif; end; endif;
if(evf(*selected)==6); formem(party); member(select,equip,*each,==,); nextmem(all); if(nowres); text(0,S𑕔Ă); else; text(1,face=+select,%mem[s]u𑕔ĂȂv); endif; end; endif;
if(evf(*selected)==11); member(head,eqbase,org,eq1,^=,eqbase(unchab)); member(head,eqbase,org,eq1,&,eqbase(unchab)); if(nowres); text(0,%eqt[*eq1]ύXsɂ); else; text(0,%eqt[*eq1]ύXɂ); endif; end; endif;
if(evf(*selected)==12); member(head,eqbase,org,eq1,^=,eqbase(unenab)); member(head,eqbase,org,eq1,&,eqbase(unenab)); if(nowres); text(0,%eqt[*eq1]𖳌ɂ); else; text(0,%eqt[*eq1]Lɂ); endif; end; endif;
if(evf(*selected)==13); member(head,eqbase,org,eq1,^=,eqbase(noblank)); member(head,eqbase,org,eq1,&,eqbase(noblank)); if(nowres); text(0,%eqt[*eq1]󗓕sɂ); else; text(0,%eqt[*eq1]󗓉ɂ); endif; end; endif;
if(evf(*selected)==14); member(head,jbbase,org,i,^=,eqbase(unchab)); member(head,jbbase,org,i,&,eqbase(unchab)); if(nowres); text(0,%jbt[*i]ύXsɂ); else; text(0,%jbt[*i]ύXɂ); endif; end; endif;
if(evf(*selected)==15); member(head,jbbase,org,i,^=,eqbase(noblank)); member(head,jbbase,org,i,&,eqbase(noblank)); if(nowres); text(0,%jbt[*i]󗓕sɂ); else; text(0,%jbt[*i]󗓉ɂ); endif; end; endif;
if(evf(*selected)==16); member(head,job,*all,manual); formem(party); subevent(setsubjob,); nextmem(); goto(10); endif;
if(evf(*selected)==17); member(head,equip,eq2,manual); goto(10); endif;
if(evf(*selected)==18); subevent(seitenkan,); endif;
if(evf(*selected)==19); member(head,skill,select); if(nowres); if(evf(*selected)==id(skill:\a)); text(0,\aI); else; text(0,\aȊOI); endif; else; text(0,IȂ); endif; endif;
if(evf(*selected)==20); memslcbox(party:equip:eq1,[mF],,,2); endif;
if(evf(*selected)==21); memslcbox(party:equip:eq2,[mF],,,2); endif;
end;
label(10); text(0,); end;

#select2(reset,all); select2(+Sɍdw(id=0)); select2(+Sɓw(id=1)); select2(+QFɍdw(id=2)); select2(+QFɓw(id=3)); select2(+(id=4)); select2(+mF(id=5)); select2(+SmF(id=6)); select2(*);
#label(0); member(equip,head,=,-3,_,,); goto(10);
#label(1); member(equip,head,change,-3,_,,); goto(10);
#label(2); member(equip,head,=,1,̏); goto(10);
#label(3); member(equip,head,change,1,̏); goto(10);
#label(4); member(equip,head,release); goto(10);
#label(5); member(equip,head,check,,7,9);
#label(6); member(equip,exis,check,,8,9);
#label(7); text(1,face=+head,%mem[h]u𑕔Ăv); end;
#label(8); text(1,face=+select,%mem[s]u𑕔Ăv); end;
#label(9); text(0,𑕔ĂȂ); end;
#label(10); text(0,); end;


<selecmemtest>
#label(0);
evflag(instant1,=,-5);

select2(reset,all);
select2(+%mem[*l]iԂ̂Pj(id=0));
select2(+擪i\j(id=1));
select2(+SԖ(id=2));
select2(+_(id=3));
select2(+I(id=4));
select2(+SI(id=5));
select2(+ϐ֑(id=6));
select2(+ϐmF(id=7));
select2(+%mem[*l]擪ۂ(id=8));
select2(+%mem[*ll]擪ɂiȂꍇ͖j(id=9));
select2(+p[eBɕύX(id=10));
select2(+%mem[*l]%mem[*l]ƌ(id=11,com=%mem[*l]p[eBɉĂȂꍇpB));
select2(+%mem[*l]%mem[*l]ƌ(id=12,com=%mem[*l]p[eBɉĂȂꍇpB));
select2(+̓eLXg̊mF(id=13));
#select2(+ۑeXg(ic=pen,id=14,com=Cxgrۑ̃eXgB\n%ct2㏑ۑ͔񐄏B%cd)); 
#select2(+);
while;
select2(*`o[IeXg`(x=64,y=64,cid));

if(evf(*selected)==0); memslc(*l); goto(10); next; endif;
if(evf(*selected)==1); memslc(head); goto(10); next; endif;
if(evf(*selected)==2); memslc(_3); if(nowres); goto(10); else; text(0,SԖڂɂ͒NȂ); endif; next; endif;
if(evf(*selected)==3); memslc(rand); goto(10); next; endif;
if(evf(*selected)==4); memslcbox(party,,,,0); goto(10); next; endif;
if(evf(*selected)==5); memslcbox(all,,,,0); goto(10); next; endif;
if(evf(*selected)==6); memslcbox(party,[ϐ֑],,,0); evflag(instant1,=,evf(*slcmem)); next; endif;
if(evf(*selected)==7); memslc(%evf(instant1)); if(nowres); goto(10); else; text(0,Lȃo[IċȂ); endif; next; endif;
if(evf(*selected)==8); party(,headis,l); if(nowres); text(0,%mem[*l]擪); else; text(0,%mem[*l]ȊO擪); endif; next; endif;
if(evf(*selected)==9); party(,headset,ll); next; endif;
if(evf(*selected)==10); party(,all,(l,l,ll,lԌ,ld_),1); next; endif;
if(evf(*selected)==11); party(,change,1,l,l); next; endif;
if(evf(*selected)==12); party(,change,1,l,l); next; endif;
if(evf(*selected)==13); text(1,,w%str[0]xƓ͂ĂB); next; endif;
if(evf(*selected)==14); savebox; next; endif;

end;
label(10); text(1,face=+select,%mem[s]IĂB);
member(select,is,*ll); if(nowres); text(0,%mem[*ll]Iꂽ); else; text(0,%mem[*ll]ȊOIꂽ);  endif;
next;

wend;


<scrbendtest>
select2(reset,all);
select2(+XN[̒oݕύXFE(id=0));
select2(+XN[̒oݕύXF(id=1));
select2(+XN[̒oݕύXF(id=2));
select2(+XN[̒oݕύXF(id=3));
select2(+XN[̒oݕύXFE(id=4));
select2(+XN[̒oݕύXF߂(id=5));
#select2(+);
select2(*`XN[̒o݁`(x=32,y=32,cid=));

if(evf(*selected)==0); scrbend(160,0,,); end; endif;
if(evf(*selected)==1); scrbend(0,160,,); end; endif;
if(evf(*selected)==2); scrbend(,,128,0); end; endif;
if(evf(*selected)==3); scrbend(,,0,128); end; endif;
if(evf(*selected)==4); scrbend(160,-160,128,-128); end; endif;
if(evf(*selected)==5); scrbend(def,def,def,def); end; endif;


<imagetest>
select2(reset,all);
select2(+C[W\t(id=0));
select2(+C[W폜(id=1));
#evflagsw(pr_dfmoon,==,1); select2(+o[W̐퓬摜\(id=2,en=nowres,com=HHHHHjŉ));
#select2(+);
select2(*`C[W`(x=32,y=128,cid=));

if(evf(*selected)==0); image(0,set, bchpic:napul,0,0,512,0,,,,,); member(*l, job,E,==,ilg); if(nowres); image(1,set, bchpic:bujin-h-big,0,0,16,16,,,,,); else; member(*l, job,E,==,ilr); if(nowres); image(1,set, bchpic:bujin-s-big,0,0,16,16,,,,,); else; image(1,set, bchpic:bujin-big,0,0,16,16,,,,,); endif; endif; image(0,scl, -256,0,0,0,0,); image(1,scl, 256,0,0,0,0,); wait(32); image(0,scl, 0,0,0,0,0,); image(1,scl, 0,0,0,0,0,); end; endif;
#if(evf(*selected)==1); image(0,set,); image(1,set,); end; endif;
if(evf(*selected)==1); image(reset); end; endif;
#if(evf(*selected)==2); image(0,set, ../bch/.bmp,,,,,00ff00,0,0,,,); end; endif;


<menuabletest>
select2(reset,all);
select2(+j[I[v(id=0));
select2(+j[I[vs(id=1));
select2(+擪؂ւ(id=2));
select2(+擪؂ւs(id=3));
select2(+Z[u(id=4));
select2(+Z[us(id=5));
#select2(+);
select2(*(x=128,y=32,cid=));

if(evf(*selected)==0); evflagsw(menuable1,=,1); end; endif;
if(evf(*selected)==1); evflagsw(menuable1,=,0); end; endif;
if(evf(*selected)==2); evflagsw(chghead1,=,1); end; endif;
if(evf(*selected)==3); evflagsw(chghead1,=,0); end; endif;
if(evf(*selected)==4); evflagsw(saveable1,=,1); end; endif;
if(evf(*selected)==5); evflagsw(saveable1,=,0); end; endif;


<timertest>
select2(reset,all);
select2(+^C}[PF퓬܂߂ĂQObic\j(id=0));
select2(+^C}[PF퓬ĂQObiVj(id=1));
select2(+^C}[PFEChE\ĂQObiVj(id=2));
select2(+^C}[PFĂQObiVj(id=3));
select2(+^C}[PF퓬܂߂ĂQObict[\j(id=4));
select2(+^C}[PF퓬ĂQObiVj(id=5));
select2(+^C}[PFEChE\ĂQObiVj(id=6));
select2(+^C}[PFĂQObiVj(id=7));
select2(+^C}[PF퓬܂߂ĂQObic~b\j(id=8));
select2(+^C}[PF퓬ĂQObiVj(id=9));
select2(+^C}[PFEChE\ĂQObiVj(id=10));
select2(+^C}[PFĂQObiVj(id=11));
select2(+^C}[PF퓬܂߂ĂQObicb\j(id=12));
select2(+^C}[PF퓬ĂQObiVj(id=13));
select2(+^C}[PFEChE\ĂQObiVj(id=14));
select2(+^C}[PFĂQObiVj(id=15));
select2(+^C}[PF~^ĊJ(id=16));
select2(+^C}[PF(id=17));
select2(+^C}[PFc^CmF(id=18));
select2(+^C}[PFt[PʂŃZbg(id=22));
select2(+^C}[PF~bPʂŃZbg(id=23));
select2(+^C}[PFbPʂŃZbg(id=24));
select2(+^C}[QF퓬܂߂ĂQObic\j(id=40));
select2(+^C}[QF퓬ĂQObiVj(id=41));
select2(+^C}[QFEChE\ĂQObiVj(id=42));
select2(+^C}[QFĂQObiVj(id=43));
select2(+^C}[QF퓬܂߂ĂQObict[\j(id=44));
select2(+^C}[QF퓬ĂQObiVj(id=45));
select2(+^C}[QFEChE\ĂQObiVj(id=46));
select2(+^C}[QFĂQObiVj(id=47));
select2(+^C}[QF퓬܂߂ĂQObic~b\j(id=48));
select2(+^C}[QF퓬ĂQObiVj(id=49));
select2(+^C}[QFEChE\ĂQObiVj(id=50));
select2(+^C}[QFĂQObiVj(id=51));
select2(+^C}[QF퓬܂߂ĂQObicb\j(id=52));
select2(+^C}[QF퓬ĂQObiVj(id=53));
select2(+^C}[QFEChE\ĂQObiVj(id=54));
select2(+^C}[QFĂQObiVj(id=55));
select2(+^C}[QF~^ĊJ(id=56));
select2(+^C}[QF(id=57));
select2(+^C}[QFc^CmF(id=58));
while;
select2(*`^C}[eXg`(x=16,y=48,cid=));

if(evf(*selected)==0); timer(timer1,timerres,0,20); next; endif;
if(evf(*selected)==1); timer(timer1,timerres,1,20); next; endif;
if(evf(*selected)==2); timer(timer1,timerres,2,20); next; endif;
if(evf(*selected)==3); timer(timer1,timerres,3,20); next; endif;
if(evf(*selected)==4); timer(timer1,timerres,4,20); next; endif;
if(evf(*selected)==5); timer(timer1,timerres,5,20); next; endif;
if(evf(*selected)==6); timer(timer1,timerres,6,20); next; endif;
if(evf(*selected)==7); timer(timer1,timerres,7,20); next; endif;
if(evf(*selected)==8); timer(timer1,timerres,8,20); next; endif;
if(evf(*selected)==9); timer(timer1,timerres,9,20); next; endif;
if(evf(*selected)==10); timer(timer1,timerres,10,20); next; endif;
if(evf(*selected)==11); timer(timer1,timerres,11,20); next; endif;
if(evf(*selected)==12); timer(timer1,timerres,12,20); next; endif;
if(evf(*selected)==13); timer(timer1,timerres,13,20); next; endif;
if(evf(*selected)==14); timer(timer1,timerres,14,20); next; endif;
if(evf(*selected)==15); timer(timer1,timerres,15,20); next; endif;
if(evf(*selected)==16); timer(timer1,*stop,^=,1); next; endif;
if(evf(*selected)==17); timer(timer1,*reset); next; endif;
if(evf(*selected)==18);
timer(timer1,*exis); if(nowres); evtext(subtx1,=,*쓮ĂB); else; evtext(subtx1,=,*쓮ĂȂB); endif;
timer(timer1,*count,1,); evtext(subtx1,*=,*%ev[*nowval]t[);
timer(timer1,*count,2,); evtext(subtx1,*=,*%ev[*nowval]~b);
timer(timer1,*count,3,); evtext(subtx1,*=,*%ev[*nowval]b);
timer(timer1,*count,1,>=,500); if(nowres); evtext(subtx1,*=,*500t[ȏB); else; evtext(subtx1,*=,*500t[B); endif;
timer(timer1,*count,2,>=,500); if(nowres); evtext(subtx1,*=,*500~bȏB); else; evtext(subtx1,*=,*500~bB); endif;
timer(timer1,*count,3,>=,500); if(nowres); evtext(subtx1,*=,*500bȏB); else; evtext(subtx1,*=,*500bB); endif;
text(1,h=8,%str[*subtx1]); next; endif;
if(evf(*selected)==22); timer(timer1,*count,1,=,1000); next; endif;
if(evf(*selected)==23); timer(timer1,*count,2,=,1000); next; endif;
if(evf(*selected)==24); timer(timer1,*count,3,=,1000); next; endif;
if(evf(*selected)==40); timer(timer2,timerres,0,20); next; endif;
if(evf(*selected)==41); timer(timer2,timerres,1,20); next; endif;
if(evf(*selected)==42); timer(timer2,timerres,2,20); next; endif;
if(evf(*selected)==43); timer(timer2,timerres,3,20); next; endif;
if(evf(*selected)==44); timer(timer2,timerres,4,20); next; endif;
if(evf(*selected)==45); timer(timer2,timerres,5,20); next; endif;
if(evf(*selected)==46); timer(timer2,timerres,6,20); next; endif;
if(evf(*selected)==47); timer(timer2,timerres,7,20); next; endif;
if(evf(*selected)==48); timer(timer2,timerres,8,20); next; endif;
if(evf(*selected)==49); timer(timer2,timerres,9,20); next; endif;
if(evf(*selected)==50); timer(timer2,timerres,10,20); next; endif;
if(evf(*selected)==51); timer(timer2,timerres,11,20); next; endif;
if(evf(*selected)==52); timer(timer2,timerres,12,20); next; endif;
if(evf(*selected)==53); timer(timer2,timerres,13,20); next; endif;
if(evf(*selected)==54); timer(timer2,timerres,14,20); next; endif;
if(evf(*selected)==55); timer(timer2,timerres,15,20); next; endif;
if(evf(*selected)==56); timer(timer2,*stop,^=,1); next; endif;
if(evf(*selected)==57); timer(timer2,*reset); next; endif;
if(evf(*selected)==58);
timer(timer2,*exis); if(nowres); evtext(subtx1,=,*쓮ĂB); else; evtext(subtx1,=,*쓮ĂȂB); endif;
timer(timer2,*count,1,); evtext(subtx1,*=,*%ev[*nowval]t[);
timer(timer2,*count,2,); evtext(subtx1,*=,*%ev[*nowval]~b);
timer(timer2,*count,3,); evtext(subtx1,*=,*%ev[*nowval]b);
timer(timer2,*count,1,>=,500); if(nowres); evtext(subtx1,*=,*500t[ȏB); else; evtext(subtx1,*=,*500t[B); endif;
timer(timer2,*count,2,>=,500); if(nowres); evtext(subtx1,*=,*500~bȏB); else; evtext(subtx1,*=,*500~bB); endif;
timer(timer2,*count,3,>=,500); if(nowres); evtext(subtx1,*=,*500bȏB); else; evtext(subtx1,*=,*500bB); endif;
text(1,h=8,%str[*subtx1]); next; endif;

wend;


<won>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,);


<lost>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,sk); subevent(recover,);


<escaped>
fade(in,(type=fade,color=000000,wait=32));
#fade(3,def,,,);
text(1,,o);


<encount>
text(1,,GJEg);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle();
#subevent(encount,);


<flst>
text(1,,ړɑSł); subevent(recover,);


<load>
fade(in,(type=fade,color=00ff80,wait=64));
text(1,,[h);


<frame>
#fc(c4,walkto,2,1,*actor);
#fc(c4:1,walkto,2,1,*actor);
#fc(c4:2,walkto,2,1,*actor);
#fc(c4:3,walkto,2,1,*actor);
#fc(c4:4,walkto,2,1,*actor);
#fc(c4:5,walkto,2,1,*actor);
#fc(c5,dir,=,~l); fc(c5:1,dir,=,~d); fc(c5:2,dir,=,~r);
fcslc(c4); while; if(nowres); fc(*select,walkto,2,1,*actor); fcslc(*nextlabel); next; endif; wend;


<setmdtest>
#mc(0,dmg,fld, 5,5,0,0,10,10, 200,200,200,200,0,0,0,0,,,10,4,0);
#mc(1,dmg,btl, 50,50,0,0,50,50, 200,200,200,200,0,0,0,0,,,10,4,0);
#mc(5,ans,0);
mc(8,ans,!=,32); if(nowres);
mc(8,ans,=,32); mc(8,dmg,|=,⋋); mc(8,encount,=,2); mc(8,btf,desert2); mc(8,btfrefc,starfall00); mc(8,enegr,=,(ip[,Kp[)); mc(60,enegref,=,0); mc(23,pic,17);
setmapdat(all,0,1,5);
else;
#mc(8,ans,=,4); mc(8,enc,=,10); mc(8,btf,sea2); mc(8,enegr,=,(iv~PQ,Kv~PQ,Keo));
mc(8,reset); mc(60,enegref,=,); mc(23,reset);
setmapdat(all,0,5,1);
endif;
#mc(13,pic,(60,66)); mc(13,ani,+=,1);
#mc(13,dmg,fld, 0,0,0,0,0,0, 0,0,0,0,0,0,0,0, ,,10,0);
#mc(13,dmg,btl, 0,0,0,0,0,0, 0,0,0,0,0,0,0,0, ,,10,0);